/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / editors / emcs1855 / emcs1855.0 / lisp / ftp.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 76 61 72 | 20 66 74 70 2d 70 61 73 |.(defvar| ftp-pas|
|00000010| 73 77 6f 72 64 2d 61 6c | 69 73 74 20 6e 69 6c 20 |sword-al|ist nil |
|00000020| 22 5c 0a 53 65 63 75 72 | 69 74 79 20 73 75 63 6b |"\.Secur|ity suck|
|00000030| 73 22 29 0a 0a 28 64 65 | 66 75 6e 20 72 65 61 64 |s")..(de|fun read|
|00000040| 2d 66 74 70 2d 75 73 65 | 72 2d 70 61 73 73 77 6f |-ftp-use|r-passwo|
|00000050| 72 64 20 28 68 6f 73 74 | 20 75 73 65 72 20 6e 65 |rd (host| user ne|
|00000060| 77 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c6 |w) (byte|-code ".|
|00000070| 18 09 3f 85 20 00 0a 3c | 85 20 00 c7 0b 0a 5c 22 |..?. ..<|. ....\"|
|00000080| 41 89 10 85 20 00 0c 3f | 86 20 00 c8 0c 08 40 5c |A... ..?|. ....@\|
|00000090| 22 83 27 00 08 82 97 00 | 0c 86 52 00 0a 3c 85 36 |".'.....|..R..<.6|
|000000a0| 00 c7 0b 0a 5c 22 41 40 | 86 3b 00 c9 20 89 10 88 |....\"A@|.;.. ...|
|000000b0| ca cb cc 0b 08 23 21 89 | 14 88 cd 0c ce 5c 22 85 |.....#!.|.....\".|
|000000c0| 52 00 08 89 14 88 0c ca | cb cf 0c 0b 23 0a 3c 3f |R.......|....#.<?|
|000000d0| 83 64 00 ce 82 77 00 c7 | 0b 0a 5c 22 41 41 86 77 |.d...w..|..\"AA.w|
|000000e0| 00 0a 1d d0 d1 8d 29 86 | 77 00 ce 5c 22 42 89 10 |......).|w..\"B..|
|000000f0| 88 d2 ce 21 88 0a 3c 85 | 8b 00 c8 08 41 ce 5c 22 |...!..<.|....A.\"|
|00000100| 3f 85 95 00 0b 08 42 0a | 42 89 12 88 08 29 87 22 |?.....B.|B....)."|
|00000110| 20 5b 74 65 6d 20 6e 65 | 77 20 66 74 70 2d 70 61 | [tem ne|w ftp-pa|
|00000120| 73 73 77 6f 72 64 2d 61 | 6c 69 73 74 20 68 6f 73 |ssword-a|list hos|
|00000130| 74 20 75 73 65 72 20 6c | 20 6e 69 6c 20 61 73 73 |t user l| nil ass|
|00000140| 6f 63 20 73 74 72 69 6e | 67 3d 20 75 73 65 72 2d |oc strin|g= user-|
|00000150| 6c 6f 67 69 6e 2d 6e 61 | 6d 65 20 72 65 61 64 2d |login-na|me read-|
|00000160| 73 74 72 69 6e 67 20 66 | 6f 72 6d 61 74 20 22 55 |string f|ormat "U|
|00000170| 73 65 72 2d 6e 61 6d 65 | 20 66 6f 72 20 25 73 20 |ser-name| for %s |
|00000180| 28 64 65 66 61 75 6c 74 | 20 5c 22 25 73 5c 22 29 |(default| \"%s\")|
|00000190| 3a 20 22 20 65 71 75 61 | 6c 20 22 22 20 22 50 61 |: " equa|l "" "Pa|
|000001a0| 73 73 77 6f 72 64 20 66 | 6f 72 20 25 73 40 25 73 |ssword f|or %s@%s|
|000001b0| 3a 20 22 20 66 6f 6f 20 | 28 62 79 74 65 2d 63 6f |: " foo |(byte-co|
|000001c0| 64 65 20 22 08 85 20 00 | c3 08 40 41 40 09 5c 22 |de ".. .|..@A@.\"|
|000001d0| 83 18 00 c4 c5 08 40 41 | 41 5c 22 82 1c 00 08 41 |......@A|A\"....A|
|000001e0| 89 10 88 82 00 00 88 c2 | 87 22 20 5b 6c 20 75 73 |........|." [l us|
|000001f0| 65 72 20 6e 69 6c 20 73 | 74 72 69 6e 67 3d 20 74 |er nil s|tring= t|
|00000200| 68 72 6f 77 20 66 6f 6f | 5d 20 35 29 20 6d 65 73 |hrow foo|] 5) mes|
|00000210| 73 61 67 65 5d 20 31 34 | 29 29 0a 0a 28 64 65 66 |sage] 14|))..(def|
|00000220| 75 6e 20 66 74 70 2d 72 | 65 61 64 2d 66 69 6c 65 |un ftp-r|ead-file|
|00000230| 2d 6e 61 6d 65 20 28 70 | 72 6f 6d 70 74 29 20 28 |-name (p|rompt) (|
|00000240| 62 79 74 65 2d 63 6f 64 | 65 20 22 c2 18 c3 c4 08 |byte-cod|e ".....|
|00000250| 5c 22 3f 85 14 00 c5 09 | 08 5c 22 89 10 88 82 02 |\"?.....|.\".....|
|00000260| 00 88 08 c6 c7 21 c8 c7 | 21 4f 08 c6 c9 21 c8 c9 |.....!..|!O...!..|
|00000270| 21 4f 44 29 87 22 20 5b | 73 20 70 72 6f 6d 70 74 |!OD)." [|s prompt|
|00000280| 20 22 22 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 | "" stri|ng-match|
|00000290| 20 22 5c 5c 60 5b 20 09 | 5d 2a 5c 5c 28 5b 5e 20 | "\\`[ .|]*\\([^ |
|000002a0| 09 3a 5d 2b 5c 5c 29 5b | 20 09 5d 2a 3a 5c 5c 28 |.:]+\\)[| .]*:\\(|
|000002b0| 2e 2b 5c 5c 29 5c 5c 27 | 22 20 72 65 61 64 2d 73 |.+\\)\\'|" read-s|
|000002c0| 74 72 69 6e 67 20 6d 61 | 74 63 68 2d 62 65 67 69 |tring ma|tch-begi|
|000002d0| 6e 6e 69 6e 67 20 31 20 | 6d 61 74 63 68 2d 65 6e |nning 1 |match-en|
|000002e0| 64 20 32 5d 20 31 30 29 | 29 0a 0a 28 64 65 66 75 |d 2] 10)|)..(defu|
|000002f0| 6e 20 66 74 70 2d 66 69 | 6e 64 2d 66 69 6c 65 20 |n ftp-fi|nd-file |
|00000300| 28 68 6f 73 74 20 66 69 | 6c 65 20 26 6f 70 74 69 |(host fi|le &opti|
|00000310| 6f 6e 61 6c 20 75 73 65 | 72 20 70 61 73 73 77 6f |onal use|r passwo|
|00000320| 72 64 29 20 22 5c 0a 46 | 54 50 20 74 6f 20 48 4f |rd) "\.F|TP to HO|
|00000330| 53 54 20 74 6f 20 67 65 | 74 20 46 49 4c 45 2c 20 |ST to ge|t FILE, |
|00000340| 6c 6f 67 67 69 6e 67 20 | 69 6e 20 61 73 20 55 53 |logging |in as US|
|00000350| 45 52 20 77 69 74 68 20 | 70 61 73 73 77 6f 72 64 |ER with |password|
|00000360| 20 50 41 53 53 57 4f 52 | 44 2e 0a 49 6e 74 65 72 | PASSWOR|D..Inter|
|00000370| 61 63 74 69 76 65 6c 79 | 2c 20 48 4f 53 54 20 61 |actively|, HOST a|
|00000380| 6e 64 20 46 49 4c 45 20 | 61 72 65 20 73 70 65 63 |nd FILE |are spec|
|00000390| 69 66 69 65 64 20 62 79 | 20 72 65 61 64 69 6e 67 |ified by| reading|
|000003a0| 20 61 20 73 74 72 69 6e | 67 20 77 69 74 68 0a 20 | a strin|g with. |
|000003b0| 61 20 63 6f 6c 6f 6e 20 | 63 68 61 72 61 63 74 65 |a colon |characte|
|000003c0| 72 20 73 65 70 61 72 61 | 74 69 6e 67 20 74 68 65 |r separa|ting the|
|000003d0| 20 68 6f 73 74 20 66 72 | 6f 6d 20 74 68 65 20 66 | host fr|om the f|
|000003e0| 69 6c 65 6e 61 6d 65 2e | 0a 55 53 45 52 20 61 6e |ilename.|.USER an|
|000003f0| 64 20 50 41 53 53 57 4f | 52 44 20 61 72 65 20 64 |d PASSWO|RD are d|
|00000400| 65 66 61 75 6c 74 65 64 | 20 66 72 6f 6d 20 74 68 |efaulted| from th|
|00000410| 65 20 76 61 6c 75 65 73 | 20 75 73 65 64 20 77 68 |e values| used wh|
|00000420| 65 6e 0a 20 6c 61 73 74 | 20 66 74 70 69 6e 67 20 |en. last| ftping |
|00000430| 66 72 6f 6d 20 48 4f 53 | 54 20 28 75 6e 6c 65 73 |from HOS|T (unles|
|00000440| 73 20 70 61 73 73 77 6f | 72 64 2d 72 65 6d 65 6d |s passwo|rd-remem|
|00000450| 62 65 72 69 6e 67 20 69 | 73 20 64 69 73 61 62 6c |bering i|s disabl|
|00000460| 65 64 29 2e 0a 20 53 75 | 70 70 6c 79 20 61 20 70 |ed).. Su|pply a p|
|00000470| 61 73 73 77 6f 72 64 20 | 6f 66 20 74 68 65 20 73 |assword |of the s|
|00000480| 79 6d 62 6f 6c 20 60 74 | 27 20 74 6f 20 6f 76 65 |ymbol `t|' to ove|
|00000490| 72 72 69 64 65 20 74 68 | 69 73 20 64 65 66 61 75 |rride th|is defau|
|000004a0| 6c 74 0a 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |lt. (int|eractive|
|000004b0| 6c 79 2c 20 74 68 69 73 | 20 69 73 20 64 6f 6e 65 |ly, this| is done|
|000004c0| 20 62 79 20 67 69 76 69 | 6e 67 20 61 20 70 72 65 | by givi|ng a pre|
|000004d0| 66 69 78 20 61 72 67 29 | 22 20 28 69 6e 74 65 72 |fix arg)|" (inter|
|000004e0| 61 63 74 69 76 65 20 28 | 62 79 74 65 2d 63 6f 64 |active (|byte-cod|
|000004f0| 65 20 22 c2 c3 c4 21 c0 | 09 3f 3f 44 5c 22 87 22 |e "...!.|.??D\"."|
|00000500| 20 5b 6e 69 6c 20 63 75 | 72 72 65 6e 74 2d 70 72 | [nil cu|rrent-pr|
|00000510| 65 66 69 78 2d 61 72 67 | 20 61 70 70 65 6e 64 20 |efix-arg| append |
|00000520| 66 74 70 2d 72 65 61 64 | 2d 66 69 6c 65 2d 6e 61 |ftp-read|-file-na|
|00000530| 6d 65 20 22 46 54 50 20 | 67 65 74 20 68 6f 73 74 |me "FTP |get host|
|00000540| 3a 66 69 6c 65 3a 20 22 | 5d 20 35 29 29 20 28 62 |:file: "|] 5)) (b|
|00000550| 79 74 65 2d 63 6f 64 65 | 20 22 c0 88 c7 0a 0b c4 |yte-code| "......|
|00000560| 0d 0e 06 25 87 22 20 5b | 6e 69 6c 20 63 75 72 72 |...%." [|nil curr|
|00000570| 65 6e 74 2d 70 72 65 66 | 69 78 2d 61 72 67 20 68 |ent-pref|ix-arg h|
|00000580| 6f 73 74 20 66 69 6c 65 | 20 74 20 75 73 65 72 20 |ost file| t user |
|00000590| 70 61 73 73 77 6f 72 64 | 20 66 74 70 2d 66 69 6e |password| ftp-fin|
|000005a0| 64 2d 66 69 6c 65 2d 6f | 72 2d 64 69 72 65 63 74 |d-file-o|r-direct|
|000005b0| 6f 72 79 5d 20 36 29 29 | 0a 0a 28 64 65 66 75 6e |ory] 6))|..(defun|
|000005c0| 20 66 74 70 2d 6c 69 73 | 74 2d 64 69 72 65 63 74 | ftp-lis|t-direct|
|000005d0| 6f 72 79 20 28 68 6f 73 | 74 20 66 69 6c 65 20 26 |ory (hos|t file &|
|000005e0| 6f 70 74 69 6f 6e 61 6c | 20 75 73 65 72 20 70 61 |optional| user pa|
|000005f0| 73 73 77 6f 72 64 29 20 | 22 5c 0a 46 54 50 20 74 |ssword) |"\.FTP t|
|00000600| 6f 20 48 4f 53 54 20 74 | 6f 20 6c 69 73 74 20 44 |o HOST t|o list D|
|00000610| 49 52 45 43 54 4f 52 59 | 2c 20 6c 6f 67 67 69 6e |IRECTORY|, loggin|
|00000620| 67 20 69 6e 20 61 73 20 | 55 53 45 52 20 77 69 74 |g in as |USER wit|
|00000630| 68 20 70 61 73 73 77 6f | 72 64 20 50 41 53 53 57 |h passwo|rd PASSW|
|00000640| 4f 52 44 2e 0a 49 6e 74 | 65 72 61 63 74 69 76 65 |ORD..Int|eractive|
|00000650| 6c 79 2c 20 48 4f 53 54 | 20 61 6e 64 20 46 49 4c |ly, HOST| and FIL|
|00000660| 45 20 61 72 65 20 73 70 | 65 63 69 66 69 65 64 20 |E are sp|ecified |
|00000670| 62 79 20 72 65 61 64 69 | 6e 67 20 61 20 73 74 72 |by readi|ng a str|
|00000680| 69 6e 67 20 77 69 74 68 | 0a 20 61 20 63 6f 6c 6f |ing with|. a colo|
|00000690| 6e 20 63 68 61 72 61 63 | 74 65 72 20 73 65 70 61 |n charac|ter sepa|
|000006a0| 72 61 74 69 6e 67 20 74 | 68 65 20 68 6f 73 74 20 |rating t|he host |
|000006b0| 66 72 6f 6d 20 74 68 65 | 20 66 69 6c 65 6e 61 6d |from the| filenam|
|000006c0| 65 2e 0a 55 53 45 52 20 | 61 6e 64 20 50 41 53 53 |e..USER |and PASS|
|000006d0| 57 4f 52 44 20 61 72 65 | 20 64 65 66 61 75 6c 74 |WORD are| default|
|000006e0| 65 64 20 66 72 6f 6d 20 | 74 68 65 20 76 61 6c 75 |ed from |the valu|
|000006f0| 65 73 20 75 73 65 64 20 | 77 68 65 6e 0a 20 6c 61 |es used |when. la|
|00000700| 73 74 20 66 74 70 69 6e | 67 20 66 72 6f 6d 20 48 |st ftpin|g from H|
|00000710| 4f 53 54 20 28 75 6e 6c | 65 73 73 20 70 61 73 73 |OST (unl|ess pass|
|00000720| 77 6f 72 64 2d 72 65 6d | 65 6d 62 65 72 69 6e 67 |word-rem|embering|
|00000730| 20 69 73 20 64 69 73 61 | 62 6c 65 64 29 2e 0a 20 | is disa|bled).. |
|00000740| 53 75 70 70 6c 79 20 61 | 20 70 61 73 73 77 6f 72 |Supply a| passwor|
|00000750| 64 20 6f 66 20 74 68 65 | 20 73 79 6d 62 6f 6c 20 |d of the| symbol |
|00000760| 60 74 27 20 74 6f 20 6f | 76 65 72 72 69 64 65 20 |`t' to o|verride |
|00000770| 74 68 69 73 20 64 65 66 | 61 75 6c 74 0a 20 28 69 |this def|ault. (i|
|00000780| 6e 74 65 72 61 63 74 69 | 76 65 6c 79 2c 20 74 68 |nteracti|vely, th|
|00000790| 69 73 20 69 73 20 64 6f | 6e 65 20 62 79 20 67 69 |is is do|ne by gi|
|000007a0| 76 69 6e 67 20 61 20 70 | 72 65 66 69 78 20 61 72 |ving a p|refix ar|
|000007b0| 67 29 22 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |g)" (int|eractive|
|000007c0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c2 c3 c4 | (byte-c|ode "...|
|000007d0| 21 c0 09 3f 3f 44 5c 22 | 87 22 20 5b 6e 69 6c 20 |!..??D\"|." [nil |
|000007e0| 63 75 72 72 65 6e 74 2d | 70 72 65 66 69 78 2d 61 |current-|prefix-a|
|000007f0| 72 67 20 61 70 70 65 6e | 64 20 66 74 70 2d 72 65 |rg appen|d ftp-re|
|00000800| 61 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 22 46 54 |ad-file-|name "FT|
|00000810| 50 20 67 65 74 20 68 6f | 73 74 3a 64 69 72 65 63 |P get ho|st:direc|
|00000820| 74 6f 72 79 3a 20 22 5d | 20 35 29 29 20 28 62 79 |tory: "]| 5)) (by|
|00000830| 74 65 2d 63 6f 64 65 20 | 22 c0 88 c6 0a 0b c0 0c |te-code |".......|
|00000840| 0d 25 87 22 20 5b 6e 69 | 6c 20 63 75 72 72 65 6e |.%." [ni|l curren|
|00000850| 74 2d 70 72 65 66 69 78 | 2d 61 72 67 20 68 6f 73 |t-prefix|-arg hos|
|00000860| 74 20 66 69 6c 65 20 75 | 73 65 72 20 70 61 73 73 |t file u|ser pass|
|00000870| 77 6f 72 64 20 66 74 70 | 2d 66 69 6e 64 2d 66 69 |word ftp|-find-fi|
|00000880| 6c 65 2d 6f 72 2d 64 69 | 72 65 63 74 6f 72 79 5d |le-or-di|rectory]|
|00000890| 20 36 29 29 0a 0a 28 64 | 65 66 75 6e 20 66 74 70 | 6))..(d|efun ftp|
|000008a0| 2d 66 69 6e 64 2d 66 69 | 6c 65 2d 6f 72 2d 64 69 |-find-fi|le-or-di|
|000008b0| 72 65 63 74 6f 72 79 20 | 28 68 6f 73 74 20 66 69 |rectory |(host fi|
|000008c0| 6c 65 20 66 69 6c 65 70 | 20 26 6f 70 74 69 6f 6e |le filep| &option|
|000008d0| 61 6c 20 75 73 65 72 20 | 70 61 73 73 77 6f 72 64 |al user |password|
|000008e0| 29 20 22 5c 0a 46 54 50 | 20 74 6f 20 48 4f 53 54 |) "\.FTP| to HOST|
|000008f0| 20 74 6f 20 67 65 74 20 | 46 49 4c 45 2e 20 20 54 | to get |FILE.  T|
|00000900| 68 69 72 64 20 61 72 67 | 20 69 73 20 74 20 66 6f |hird arg| is t fo|
|00000910| 72 20 66 69 6c 65 2c 20 | 6e 69 6c 20 66 6f 72 20 |r file, |nil for |
|00000920| 64 69 72 65 63 74 6f 72 | 79 2e 0a 4c 6f 67 20 69 |director|y..Log i|
|00000930| 6e 20 61 73 20 55 53 45 | 52 20 77 69 74 68 20 50 |n as USE|R with P|
|00000940| 41 53 53 57 4f 52 44 2e | 20 20 49 66 20 55 53 45 |ASSWORD.|  If USE|
|00000950| 52 20 69 73 20 6e 69 6c | 20 6f 72 20 50 41 53 53 |R is nil| or PASS|
|00000960| 57 4f 52 44 20 69 73 20 | 6e 69 6c 20 6f 72 20 74 |WORD is |nil or t|
|00000970| 2c 0a 77 65 20 70 72 6f | 6d 70 74 20 66 6f 72 20 |,.we pro|mpt for |
|00000980| 74 68 65 20 75 73 65 72 | 20 6e 61 6d 65 20 61 6e |the user| name an|
|00000990| 64 20 70 61 73 73 77 6f | 72 64 2e 22 20 28 62 79 |d passwo|rd." (by|
|000009a0| 74 65 2d 63 6f 64 65 20 | 22 08 85 0c 00 09 85 0c |te-code |".......|
|000009b0| 00 09 c2 3d 3f 86 1e 00 | cc 0b 08 09 c2 3d 23 10 |...=?...|.....=#.|
|000009c0| 08 41 11 08 40 89 10 88 | cd ce cf 0d 83 2a 00 d0 |.A..@...|.....*..|
|000009d0| 82 2b 00 d1 0b 0e 06 24 | 21 1c 0c 71 88 d2 0b 0e |.+.....$|!..q....|
|000009e0| 06 5c 22 c9 1e 08 1e 07 | c9 1e 0a d3 8e d4 0e 07 |.\".....|........|
|000009f0| 0b 08 09 24 89 16 0a 83 | 56 00 d5 d6 21 82 59 00 |...$....|V...!.Y.|
|00000a00| d7 d8 21 29 29 88 d5 d9 | 0d 83 66 00 da 82 67 00 |..!))...|..f...g.|
|00000a10| db 0b 0e 06 24 88 dc 0e | 07 ce dd 0d 83 79 00 de |....$...|.....y..|
|00000a20| 82 7a 00 df 0e 06 23 e0 | e1 24 83 a2 00 e2 e3 21 |.z....#.|.$.....!|
|00000a30| 88 c9 1e 0b e4 65 60 5c | 22 29 88 d5 e5 0b 0e 06 |.....e`\|")......|
|00000a40| 23 88 e6 0e 07 e7 5c 22 | 88 0e 07 82 b9 00 e8 0c |#.....\"|........|
|00000a50| 21 88 c9 1e 0b e9 ea 21 | 29 88 eb 0e 07 21 88 d7 |!......!|)....!..|
|00000a60| ec 0b 0e 06 23 2a 29 87 | 22 20 5b 75 73 65 72 20 |....#*).|" [user |
|00000a70| 70 61 73 73 77 6f 72 64 | 20 74 20 68 6f 73 74 20 |password| t host |
|00000a80| 62 75 66 66 65 72 20 66 | 69 6c 65 70 20 66 69 6c |buffer f|ilep fil|
|00000a90| 65 20 70 72 6f 63 65 73 | 73 20 63 61 73 65 2d 66 |e proces|s case-f|
|00000aa0| 6f 6c 64 2d 73 65 61 72 | 63 68 20 6e 69 6c 20 77 |old-sear|ch nil w|
|00000ab0| 69 6e 20 62 75 66 66 65 | 72 2d 72 65 61 64 2d 6f |in buffe|r-read-o|
|00000ac0| 6e 6c 79 20 72 65 61 64 | 2d 66 74 70 2d 75 73 65 |nly read|-ftp-use|
|00000ad0| 72 2d 70 61 73 73 77 6f | 72 64 20 67 65 74 2d 62 |r-passwo|rd get-b|
|00000ae0| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 66 6f 72 |uffer-cr|eate for|
|00000af0| 6d 61 74 20 22 2a 66 74 | 70 25 73 20 25 73 3a 25 |mat "*ft|p%s %s:%|
|00000b00| 73 2a 22 20 22 22 20 22 | 2d 64 69 72 65 63 74 6f |s*" "" "|-directo|
|00000b10| 72 79 22 20 66 74 70 2d | 73 65 74 75 70 2d 62 75 |ry" ftp-|setup-bu|
|00000b20| 66 66 65 72 20 28 28 62 | 79 74 65 2d 63 6f 64 65 |ffer ((b|yte-code|
|00000b30| 20 22 08 86 07 00 c2 09 | 21 87 22 20 5b 77 69 6e | "......|!." [win|
|00000b40| 20 70 72 6f 63 65 73 73 | 20 64 65 6c 65 74 65 2d | process| delete-|
|00000b50| 70 72 6f 63 65 73 73 5d | 20 32 29 29 20 66 74 70 |process]| 2)) ftp|
|00000b60| 2d 6c 6f 67 69 6e 20 6d | 65 73 73 61 67 65 20 22 |-login m|essage "|
|00000b70| 4c 6f 67 67 65 64 20 69 | 6e 22 20 65 72 72 6f 72 |Logged i|n" error|
|00000b80| 20 22 46 74 70 20 6c 6f | 67 69 6e 20 6c 6f 73 74 | "Ftp lo|gin lost|
|00000b90| 22 20 22 4f 70 65 6e 69 | 6e 67 20 25 73 20 25 73 |" "Openi|ng %s %s|
|00000ba0| 3a 25 73 2e 2e 2e 22 20 | 22 66 69 6c 65 22 20 22 |:%s..." |"file" "|
|00000bb0| 64 69 72 65 63 74 6f 72 | 79 22 20 66 74 70 2d 63 |director|y" ftp-c|
|00000bc0| 6f 6d 6d 61 6e 64 20 22 | 25 73 20 5c 22 25 73 5c |ommand "|%s \"%s\|
|00000bd0| 22 20 2d 0a 71 75 69 74 | 0a 22 20 22 67 65 74 22 |" -.quit|." "get"|
|00000be0| 20 22 64 69 72 22 20 22 | 5c 5c 28 31 35 30 5c 5c | "dir" "|\\(150\\|
|00000bf0| 7c 31 32 35 5c 5c 29 2e | 2a 0a 22 20 22 32 30 30 ||125\\).|*." "200|
|00000c00| 2e 2a 0a 22 20 66 6f 72 | 77 61 72 64 2d 6c 69 6e |.*." for|ward-lin|
|00000c10| 65 20 31 20 64 65 6c 65 | 74 65 2d 72 65 67 69 6f |e 1 dele|te-regio|
|00000c20| 6e 20 22 52 65 74 72 69 | 65 76 69 6e 67 20 25 73 |n "Retri|eving %s|
|00000c30| 3a 25 73 20 69 6e 20 62 | 61 63 6b 67 72 6f 75 6e |:%s in b|ackgroun|
|00000c40| 64 2e 20 20 42 79 65 21 | 22 20 73 65 74 2d 70 72 |d.  Bye!|" set-pr|
|00000c50| 6f 63 65 73 73 2d 73 65 | 6e 74 69 6e 65 6c 20 66 |ocess-se|ntinel f|
|00000c60| 74 70 2d 61 73 79 6e 63 | 68 72 6f 6e 6f 75 73 2d |tp-async|hronous-|
|00000c70| 69 6e 70 75 74 2d 73 65 | 6e 74 69 6e 65 6c 20 73 |input-se|ntinel s|
|00000c80| 77 69 74 63 68 2d 74 6f | 2d 62 75 66 66 65 72 20 |witch-to|-buffer |
|00000c90| 69 6e 73 65 72 74 2d 62 | 65 66 6f 72 65 2d 6d 61 |insert-b|efore-ma|
|00000ca0| 72 6b 65 72 73 20 22 3c | 3c 3c 46 74 70 20 6c 6f |rkers "<|<<Ftp lo|
|00000cb0| 73 74 3e 3e 3e 22 20 64 | 65 6c 65 74 65 2d 70 72 |st>>>" d|elete-pr|
|00000cc0| 6f 63 65 73 73 20 22 46 | 74 70 20 25 73 3a 25 73 |ocess "F|tp %s:%s|
|00000cd0| 20 6c 6f 73 74 22 5d 20 | 32 31 29 29 0a 0a 28 64 | lost"] |21))..(d|
|00000ce0| 65 66 75 6e 20 66 74 70 | 2d 77 72 69 74 65 2d 66 |efun ftp|-write-f|
|00000cf0| 69 6c 65 20 28 68 6f 73 | 74 20 66 69 6c 65 20 26 |ile (hos|t file &|
|00000d00| 6f 70 74 69 6f 6e 61 6c | 20 75 73 65 72 20 70 61 |optional| user pa|
|00000d10| 73 73 77 6f 72 64 29 20 | 22 5c 0a 46 54 50 20 74 |ssword) |"\.FTP t|
|00000d20| 6f 20 48 4f 53 54 20 74 | 6f 20 77 72 69 74 65 20 |o HOST t|o write |
|00000d30| 46 49 4c 45 2c 20 6c 6f | 67 67 69 6e 67 20 69 6e |FILE, lo|gging in|
|00000d40| 20 61 73 20 55 53 45 52 | 20 77 69 74 68 20 70 61 | as USER| with pa|
|00000d50| 73 73 77 6f 72 64 20 50 | 41 53 53 57 4f 52 44 2e |ssword P|ASSWORD.|
|00000d60| 0a 49 6e 74 65 72 61 63 | 74 69 76 65 6c 79 2c 20 |.Interac|tively, |
|00000d70| 48 4f 53 54 20 61 6e 64 | 20 46 49 4c 45 20 61 72 |HOST and| FILE ar|
|00000d80| 65 20 73 70 65 63 69 66 | 69 65 64 20 62 79 20 72 |e specif|ied by r|
|00000d90| 65 61 64 69 6e 67 20 61 | 20 73 74 72 69 6e 67 20 |eading a| string |
|00000da0| 77 69 74 68 20 63 6f 6c | 6f 6e 0a 73 65 70 61 72 |with col|on.separ|
|00000db0| 61 74 69 6e 67 20 74 68 | 65 20 68 6f 73 74 20 66 |ating th|e host f|
|00000dc0| 72 6f 6d 20 74 68 65 20 | 66 69 6c 65 6e 61 6d 65 |rom the |filename|
|00000dd0| 2e 0a 55 53 45 52 20 61 | 6e 64 20 50 41 53 53 57 |..USER a|nd PASSW|
|00000de0| 4f 52 44 20 61 72 65 20 | 64 65 66 61 75 6c 74 65 |ORD are |defaulte|
|00000df0| 64 20 66 72 6f 6d 20 74 | 68 65 20 76 61 6c 75 65 |d from t|he value|
|00000e00| 73 20 75 73 65 64 20 77 | 68 65 6e 0a 20 6c 61 73 |s used w|hen. las|
|00000e10| 74 20 66 74 70 69 6e 67 | 20 66 72 6f 6d 20 48 4f |t ftping| from HO|
|00000e20| 53 54 20 28 75 6e 6c 65 | 73 73 20 70 61 73 73 77 |ST (unle|ss passw|
|00000e30| 6f 72 64 2d 72 65 6d 65 | 6d 62 65 72 69 6e 67 20 |ord-reme|mbering |
|00000e40| 69 73 20 64 69 73 61 62 | 6c 65 64 29 2e 0a 20 53 |is disab|led).. S|
|00000e50| 75 70 70 6c 79 20 61 20 | 70 61 73 73 77 6f 72 64 |upply a |password|
|00000e60| 20 6f 66 20 74 68 65 20 | 73 79 6d 62 6f 6c 20 60 | of the |symbol `|
|00000e70| 74 27 20 74 6f 20 6f 76 | 65 72 72 69 64 65 20 74 |t' to ov|erride t|
|00000e80| 68 69 73 20 64 65 66 61 | 75 6c 74 0a 20 28 69 6e |his defa|ult. (in|
|00000e90| 74 65 72 61 63 74 69 76 | 65 6c 79 2c 20 74 68 69 |teractiv|ely, thi|
|00000ea0| 73 20 69 73 20 64 6f 6e | 65 20 62 79 20 67 69 76 |s is don|e by giv|
|00000eb0| 69 6e 67 20 61 20 70 72 | 65 66 69 78 20 61 72 67 |ing a pr|efix arg|
|00000ec0| 29 22 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |)" (inte|ractive |
|00000ed0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c2 c3 c4 21 |(byte-co|de "...!|
|00000ee0| c0 09 3f 3f 44 5c 22 87 | 22 20 5b 6e 69 6c 20 63 |..??D\".|" [nil c|
|00000ef0| 75 72 72 65 6e 74 2d 70 | 72 65 66 69 78 2d 61 72 |urrent-p|refix-ar|
|00000f00| 67 20 61 70 70 65 6e 64 | 20 66 74 70 2d 72 65 61 |g append| ftp-rea|
|00000f10| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 22 46 54 50 |d-file-n|ame "FTP|
|00000f20| 20 77 72 69 74 65 20 68 | 6f 73 74 3a 66 69 6c 65 | write h|ost:file|
|00000f30| 3a 20 22 5d 20 35 29 29 | 20 28 62 79 74 65 2d 63 |: "] 5))| (byte-c|
|00000f40| 6f 64 65 20 22 c0 88 0a | 85 0e 00 0b 85 0e 00 0b |ode "...|........|
|00000f50| c4 3d 3f 86 20 00 ce 0d | 0a 0b c4 3d 23 12 0a 41 |.=?. ...|...=#..A|
|00000f60| 13 0a 40 89 12 88 cf d0 | d1 0d 0e 07 23 21 d2 d3 |..@.....|....#!..|
|00000f70| 21 1e 08 1e 06 d4 65 64 | 0e 08 23 88 0e 06 71 88 |!.....ed|..#...q.|
|00000f80| d5 c9 21 88 0e 08 89 16 | 09 88 d6 0d 0e 07 5c 22 |..!.....|......\"|
|00000f90| c0 1e 0b 1e 0a c0 1e 0c | d7 8e d8 0e 0a 0d 0a 0b |........|........|
|00000fa0| 24 89 16 0c 83 67 00 d9 | da 21 82 6a 00 db dc 21 |$....g..|.!.j...!|
|00000fb0| 29 29 88 d9 dd 0d 0e 07 | 23 88 de 0e 0a d0 df 0e |))......|#.......|
|00000fc0| 08 0e 07 23 e0 e1 24 83 | a3 00 e2 e3 21 88 c0 1e |...#..$.|....!...|
|00000fd0| 0d e4 65 60 5c 22 29 88 | d9 e5 0d 0e 07 23 88 e6 |..e`\").|.....#..|
|00000fe0| 0e 0a e7 5c 22 88 0e 0a | 82 bb 00 e8 0e 06 21 88 |...\"...|......!.|
|00000ff0| c0 1e 0d e9 ea 21 29 88 | eb 0e 0a 21 88 db ec 0d |.....!).|...!....|
|00001000| 0e 07 23 2a 2a 87 22 20 | 5b 6e 69 6c 20 63 75 72 |..#**." |[nil cur|
|00001010| 72 65 6e 74 2d 70 72 65 | 66 69 78 2d 61 72 67 20 |rent-pre|fix-arg |
|00001020| 75 73 65 72 20 70 61 73 | 73 77 6f 72 64 20 74 20 |user pas|sword t |
|00001030| 68 6f 73 74 20 62 75 66 | 66 65 72 20 66 69 6c 65 |host buf|fer file|
|00001040| 20 74 6d 70 20 66 74 70 | 2d 74 65 6d 70 2d 66 69 | tmp ftp|-temp-fi|
|00001050| 6c 65 2d 6e 61 6d 65 20 | 70 72 6f 63 65 73 73 20 |le-name |process |
|00001060| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00001070| 20 77 69 6e 20 62 75 66 | 66 65 72 2d 72 65 61 64 | win buf|fer-read|
|00001080| 2d 6f 6e 6c 79 20 72 65 | 61 64 2d 66 74 70 2d 75 |-only re|ad-ftp-u|
|00001090| 73 65 72 2d 70 61 73 73 | 77 6f 72 64 20 67 65 74 |ser-pass|word get|
|000010a0| 2d 62 75 66 66 65 72 2d | 63 72 65 61 74 65 20 66 |-buffer-|create f|
|000010b0| 6f 72 6d 61 74 20 22 2a | 66 74 70 20 25 73 3a 25 |ormat "*|ftp %s:%|
|000010c0| 73 2a 22 20 6d 61 6b 65 | 2d 74 65 6d 70 2d 6e 61 |s*" make|-temp-na|
|000010d0| 6d 65 20 22 2f 74 6d 70 | 2f 65 6d 61 63 73 66 74 |me "/tmp|/emacsft|
|000010e0| 70 22 20 77 72 69 74 65 | 2d 72 65 67 69 6f 6e 20 |p" write|-region |
|000010f0| 6d 61 6b 65 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |make-loc|al-varia|
|00001100| 62 6c 65 20 66 74 70 2d | 73 65 74 75 70 2d 62 75 |ble ftp-|setup-bu|
|00001110| 66 66 65 72 20 28 28 62 | 79 74 65 2d 63 6f 64 65 |ffer ((b|yte-code|
|00001120| 20 22 08 86 07 00 c2 09 | 21 87 22 20 5b 77 69 6e | "......|!." [win|
|00001130| 20 70 72 6f 63 65 73 73 | 20 64 65 6c 65 74 65 2d | process| delete-|
|00001140| 70 72 6f 63 65 73 73 5d | 20 32 29 29 20 66 74 70 |process]| 2)) ftp|
|00001150| 2d 6c 6f 67 69 6e 20 6d | 65 73 73 61 67 65 20 22 |-login m|essage "|
|00001160| 4c 6f 67 67 65 64 20 69 | 6e 22 20 65 72 72 6f 72 |Logged i|n" error|
|00001170| 20 22 46 74 70 20 6c 6f | 67 69 6e 20 6c 6f 73 74 | "Ftp lo|gin lost|
|00001180| 22 20 22 4f 70 65 6e 69 | 6e 67 20 66 69 6c 65 20 |" "Openi|ng file |
|00001190| 25 73 3a 25 73 2e 2e 2e | 22 20 66 74 70 2d 63 6f |%s:%s...|" ftp-co|
|000011a0| 6d 6d 61 6e 64 20 22 73 | 65 6e 64 20 5c 22 25 73 |mmand "s|end \"%s|
|000011b0| 5c 22 20 5c 22 25 73 5c | 22 0a 71 75 69 74 0a 22 |\" \"%s\|".quit."|
|000011c0| 20 22 31 35 30 2e 2a 0a | 22 20 22 32 30 30 2e 2a | "150.*.|" "200.*|
|000011d0| 0a 22 20 66 6f 72 77 61 | 72 64 2d 6c 69 6e 65 20 |." forwa|rd-line |
|000011e0| 31 20 64 65 6c 65 74 65 | 2d 72 65 67 69 6f 6e 20 |1 delete|-region |
|000011f0| 22 53 61 76 69 6e 67 20 | 25 73 3a 25 73 20 69 6e |"Saving |%s:%s in|
|00001200| 20 62 61 63 6b 67 72 6f | 75 6e 64 2e 20 20 42 79 | backgro|und.  By|
|00001210| 65 21 22 20 73 65 74 2d | 70 72 6f 63 65 73 73 2d |e!" set-|process-|
|00001220| 73 65 6e 74 69 6e 65 6c | 20 66 74 70 2d 61 73 79 |sentinel| ftp-asy|
|00001230| 6e 63 68 72 6f 6e 6f 75 | 73 2d 6f 75 74 70 75 74 |nchronou|s-output|
|00001240| 2d 73 65 6e 74 69 6e 65 | 6c 20 73 77 69 74 63 68 |-sentine|l switch|
|00001250| 2d 74 6f 2d 62 75 66 66 | 65 72 20 69 6e 73 65 72 |-to-buff|er inser|
|00001260| 74 2d 62 65 66 6f 72 65 | 2d 6d 61 72 6b 65 72 73 |t-before|-markers|
|00001270| 20 22 3c 3c 3c 46 74 70 | 20 6c 6f 73 74 3e 3e 3e | "<<<Ftp| lost>>>|
|00001280| 22 20 64 65 6c 65 74 65 | 2d 70 72 6f 63 65 73 73 |" delete|-process|
|00001290| 20 22 46 74 70 20 77 72 | 69 74 65 20 25 73 3a 25 | "Ftp wr|ite %s:%|
|000012a0| 73 20 6c 6f 73 74 22 5d | 20 32 34 29 29 0a 0a 28 |s lost"]| 24))..(|
|000012b0| 64 65 66 75 6e 20 66 74 | 70 2d 73 65 74 75 70 2d |defun ft|p-setup-|
|000012c0| 62 75 66 66 65 72 20 28 | 68 6f 73 74 20 66 69 6c |buffer (|host fil|
|000012d0| 65 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c7 |e) (byte|-code ".|
|000012e0| 20 88 c8 70 21 85 31 00 | c9 20 88 ca cb cc cd c8 | ..p!.1.|. ......|
|000012f0| 70 21 21 ce 70 21 23 21 | 83 2e 00 c8 70 21 85 2b |p!!.p!#!|....p!.+|
|00001300| 00 cf c8 70 21 21 88 82 | 1c 00 82 31 00 d0 d1 21 |...p!!..|...1...!|
|00001310| 88 c1 89 10 88 d2 20 88 | d3 c2 21 88 0b 89 12 88 |...... .|..!.....|
|00001320| d3 c4 21 88 0d 89 14 88 | c6 89 10 88 d4 d5 70 d5 |..!.....|......p.|
|00001330| d6 d7 d8 26 06 87 22 20 | 5b 62 75 66 66 65 72 2d |...&.." |[buffer-|
|00001340| 72 65 61 64 2d 6f 6e 6c | 79 20 6e 69 6c 20 66 74 |read-onl|y nil ft|
|00001350| 70 2d 68 6f 73 74 20 68 | 6f 73 74 20 66 74 70 2d |p-host h|ost ftp-|
|00001360| 66 69 6c 65 20 66 69 6c | 65 20 74 20 66 75 6e 64 |file fil|e t fund|
|00001370| 61 6d 65 6e 74 61 6c 2d | 6d 6f 64 65 20 67 65 74 |amental-|mode get|
|00001380| 2d 62 75 66 66 65 72 2d | 70 72 6f 63 65 73 73 20 |-buffer-|process |
|00001390| 64 69 73 63 61 72 64 2d | 69 6e 70 75 74 20 79 2d |discard-|input y-|
|000013a0| 6f 72 2d 6e 2d 70 20 66 | 6f 72 6d 61 74 20 22 4b |or-n-p f|ormat "K|
|000013b0| 69 6c 6c 20 70 72 6f 63 | 65 73 73 20 5c 22 25 73 |ill proc|ess \"%s|
|000013c0| 5c 22 20 69 6e 20 25 73 | 3f 20 22 20 70 72 6f 63 |\" in %s|? " proc|
|000013d0| 65 73 73 2d 6e 61 6d 65 | 20 62 75 66 66 65 72 2d |ess-name| buffer-|
|000013e0| 6e 61 6d 65 20 6b 69 6c | 6c 2d 70 72 6f 63 65 73 |name kil|l-proces|
|000013f0| 73 20 65 72 72 6f 72 20 | 22 46 6f 6f 22 20 65 72 |s error |"Foo" er|
|00001400| 61 73 65 2d 62 75 66 66 | 65 72 20 6d 61 6b 65 2d |ase-buff|er make-|
|00001410| 6c 6f 63 61 6c 2d 76 61 | 72 69 61 62 6c 65 20 73 |local-va|riable s|
|00001420| 74 61 72 74 2d 70 72 6f | 63 65 73 73 20 22 66 74 |tart-pro|cess "ft|
|00001430| 70 22 20 22 2d 69 22 20 | 22 2d 6e 22 20 22 2d 67 |p" "-i" |"-n" "-g|
|00001440| 22 5d 20 32 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |"] 22)).|.(defun |
|00001450| 66 74 70 2d 6c 6f 67 69 | 6e 20 28 70 72 6f 63 65 |ftp-logi|n (proce|
|00001460| 73 73 20 68 6f 73 74 20 | 75 73 65 72 20 70 61 73 |ss host |user pas|
|00001470| 73 77 6f 72 64 29 20 28 | 62 79 74 65 2d 63 6f 64 |sword) (|byte-cod|
|00001480| 65 20 22 c7 c8 08 09 23 | 88 c9 0a ca cb 09 08 0b |e "....#|........|
|00001490| 24 cc cd 24 83 18 00 c4 | 82 32 00 ce cf 0a 21 21 |$..$....|.2....!!|
|000014a0| 88 d0 0a 21 88 0d 3c 85 | 30 00 d1 d2 09 0d 5c 22 |...!..<.|0.....\"|
|000014b0| 0d 5c 22 89 15 88 c6 87 | 22 20 5b 75 73 65 72 20 |.\".....|" [user |
|000014c0| 68 6f 73 74 20 70 72 6f | 63 65 73 73 20 70 61 73 |host pro|cess pas|
|000014d0| 73 77 6f 72 64 20 74 20 | 66 74 70 2d 70 61 73 73 |sword t |ftp-pass|
|000014e0| 77 6f 72 64 2d 61 6c 69 | 73 74 20 6e 69 6c 20 6d |word-ali|st nil m|
|000014f0| 65 73 73 61 67 65 20 22 | 46 54 50 20 6c 6f 67 67 |essage "|FTP logg|
|00001500| 69 6e 67 20 69 6e 20 61 | 73 20 25 73 40 25 73 2e |ing in a|s %s@%s.|
|00001510| 2e 2e 22 20 66 74 70 2d | 63 6f 6d 6d 61 6e 64 20 |.." ftp-|command |
|00001520| 66 6f 72 6d 61 74 20 22 | 6f 70 65 6e 20 25 73 0a |format "|open %s.|
|00001530| 75 73 65 72 20 25 73 20 | 25 73 0a 22 20 22 32 33 |user %s |%s." "23|
|00001540| 30 2e 2a 0a 22 20 22 5c | 5c 28 43 6f 6e 6e 65 63 |0.*." "\|\(Connec|
|00001550| 74 65 64 20 74 6f 20 5c | 5c 7c 32 32 30 5c 5c 7c |ted to \|\|220\\||
|00001560| 33 33 31 5c 5c 29 2e 2a | 0a 22 20 73 77 69 74 63 |331\\).*|." switc|
|00001570| 68 2d 74 6f 2d 62 75 66 | 66 65 72 20 70 72 6f 63 |h-to-buf|fer proc|
|00001580| 65 73 73 2d 62 75 66 66 | 65 72 20 64 65 6c 65 74 |ess-buff|er delet|
|00001590| 65 2d 70 72 6f 63 65 73 | 73 20 64 65 6c 71 20 61 |e-proces|s delq a|
|000015a0| 73 73 6f 63 5d 20 31 30 | 29 29 0a 0a 28 64 65 66 |ssoc] 10|))..(def|
|000015b0| 75 6e 20 66 74 70 2d 63 | 6f 6d 6d 61 6e 64 20 28 |un ftp-c|ommand (|
|000015c0| 70 72 6f 63 65 73 73 20 | 63 6f 6d 6d 61 6e 64 20 |process |command |
|000015d0| 77 69 6e 20 69 67 6e 6f | 72 65 29 20 28 62 79 74 |win igno|re) (byt|
|000015e0| 65 2d 63 6f 64 65 20 22 | c7 08 09 5c 22 88 c8 1a |e-code "|...\"...|
|000015f0| c9 0a 21 85 53 00 ca 0b | 21 83 1c 00 64 62 88 c4 |..!.S...|!...db..|
|00001600| 89 12 82 4f 00 ca cb 21 | 83 29 00 cc cd 21 62 82 |...O...!|.)...!b.|
|00001610| 4f 00 ca 0d 21 83 35 00 | ce c8 21 82 4f 00 cf d0 |O...!.5.|..!.O...|
|00001620| c6 c4 23 3f 83 4c 00 60 | 89 12 88 c6 d1 d2 8f 88 |..#?.L.`|........|
|00001630| 0a 62 82 4f 00 c6 89 12 | 88 82 07 00 88 0a 29 87 |.b.O....|......).|
|00001640| 22 20 5b 70 72 6f 63 65 | 73 73 20 63 6f 6d 6d 61 |" [proce|ss comma|
|00001650| 6e 64 20 70 20 77 69 6e | 20 74 20 69 67 6e 6f 72 |nd p win| t ignor|
|00001660| 65 20 6e 69 6c 20 70 72 | 6f 63 65 73 73 2d 73 65 |e nil pr|ocess-se|
|00001670| 6e 64 2d 73 74 72 69 6e | 67 20 31 20 6e 75 6d 62 |nd-strin|g 1 numb|
|00001680| 65 72 70 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |erp look|ing-at "|
|00001690| 5e 66 74 70 3e 20 5c 5c | 7c 5e 0a 22 20 6d 61 74 |^ftp> \\||^." mat|
|000016a0| 63 68 2d 65 6e 64 20 30 | 20 66 6f 72 77 61 72 64 |ch-end 0| forward|
|000016b0| 2d 6c 69 6e 65 20 73 65 | 61 72 63 68 2d 66 6f 72 |-line se|arch-for|
|000016c0| 77 61 72 64 20 22 0a 22 | 20 28 62 79 74 65 2d 63 |ward "."| (byte-c|
|000016d0| 6f 64 65 20 22 c1 08 21 | 87 22 20 5b 70 72 6f 63 |ode "..!|." [proc|
|000016e0| 65 73 73 20 61 63 63 65 | 70 74 2d 70 72 6f 63 65 |ess acce|pt-proce|
|000016f0| 73 73 2d 6f 75 74 70 75 | 74 5d 20 32 29 20 28 28 |ss-outpu|t] 2) ((|
|00001700| 65 72 72 6f 72 20 28 62 | 79 74 65 2d 63 6f 64 65 |error (b|yte-code|
|00001710| 20 22 c0 87 22 20 5b 6e | 69 6c 5d 20 31 29 29 29 | ".." [n|il] 1)))|
|00001720| 5d 20 31 32 29 29 0a 0a | 28 64 65 66 75 6e 20 66 |] 12))..|(defun f|
|00001730| 74 70 2d 61 73 79 6e 63 | 68 72 6f 6e 6f 75 73 2d |tp-async|hronous-|
|00001740| 69 6e 70 75 74 2d 73 65 | 6e 74 69 6e 65 6c 20 28 |input-se|ntinel (|
|00001750| 70 72 6f 63 65 73 73 20 | 6d 73 67 29 20 28 62 79 |process |msg) (by|
|00001760| 74 65 2d 63 6f 64 65 20 | 22 c3 08 09 c2 c2 24 87 |te-code |".....$.|
|00001770| 22 20 5b 70 72 6f 63 65 | 73 73 20 6d 73 67 20 74 |" [proce|ss msg t|
|00001780| 20 66 74 70 2d 73 65 6e | 74 69 6e 65 6c 5d 20 35 | ftp-sen|tinel] 5|
|00001790| 29 29 0a 0a 28 64 65 66 | 75 6e 20 66 74 70 2d 73 |))..(def|un ftp-s|
|000017a0| 79 6e 63 68 72 6f 6e 6f | 75 73 2d 69 6e 70 75 74 |ynchrono|us-input|
|000017b0| 2d 73 65 6e 74 69 6e 65 | 6c 20 28 70 72 6f 63 65 |-sentine|l (proce|
|000017c0| 73 73 20 6d 73 67 29 20 | 28 62 79 74 65 2d 63 6f |ss msg) |(byte-co|
|000017d0| 64 65 20 22 c4 08 09 c2 | c3 24 87 22 20 5b 70 72 |de "....|.$." [pr|
|000017e0| 6f 63 65 73 73 20 6d 73 | 67 20 6e 69 6c 20 74 20 |ocess ms|g nil t |
|000017f0| 66 74 70 2d 73 65 6e 74 | 69 6e 65 6c 5d 20 35 29 |ftp-sent|inel] 5)|
|00001800| 29 0a 0a 28 64 65 66 75 | 6e 20 66 74 70 2d 61 73 |)..(defu|n ftp-as|
|00001810| 79 6e 63 68 72 6f 6e 6f | 75 73 2d 6f 75 74 70 75 |ynchrono|us-outpu|
|00001820| 74 2d 73 65 6e 74 69 6e | 65 6c 20 28 70 72 6f 63 |t-sentin|el (proc|
|00001830| 65 73 73 20 6d 73 67 29 | 20 28 62 79 74 65 2d 63 |ess msg)| (byte-c|
|00001840| 6f 64 65 20 22 c4 08 09 | c2 c3 24 87 22 20 5b 70 |ode "...|..$." [p|
|00001850| 72 6f 63 65 73 73 20 6d | 73 67 20 74 20 6e 69 6c |rocess m|sg t nil|
|00001860| 20 66 74 70 2d 73 65 6e | 74 69 6e 65 6c 5d 20 35 | ftp-sen|tinel] 5|
|00001870| 29 29 0a 0a 28 64 65 66 | 75 6e 20 66 74 70 2d 73 |))..(def|un ftp-s|
|00001880| 79 6e 63 68 72 6f 6e 6f | 75 73 2d 6f 75 74 70 75 |ynchrono|us-outpu|
|00001890| 74 2d 73 65 6e 74 69 6e | 65 6c 20 28 70 72 6f 63 |t-sentin|el (proc|
|000018a0| 65 73 73 20 6d 73 67 29 | 20 28 62 79 74 65 2d 63 |ess msg)| (byte-c|
|000018b0| 6f 64 65 20 22 c3 08 09 | c2 c2 24 87 22 20 5b 70 |ode "...|..$." [p|
|000018c0| 72 6f 63 65 73 73 20 6d | 73 67 20 6e 69 6c 20 66 |rocess m|sg nil f|
|000018d0| 74 70 2d 73 65 6e 74 69 | 6e 65 6c 5d 20 35 29 29 |tp-senti|nel] 5))|
|000018e0| 0a 0a 28 64 65 66 75 6e | 20 66 74 70 2d 73 65 6e |..(defun| ftp-sen|
|000018f0| 74 69 6e 65 6c 20 28 70 | 72 6f 63 65 73 73 20 6d |tinel (p|rocess m|
|00001900| 73 67 20 61 73 79 6e 63 | 68 72 6f 6e 6f 75 73 20 |sg async|hronous |
|00001910| 69 6e 70 75 74 29 20 28 | 62 79 74 65 2d 63 6f 64 |input) (|byte-cod|
|00001920| 65 20 22 cd ce 08 21 21 | 3f 83 10 00 cf 08 c1 5c |e "...!!|?......\|
|00001930| 22 82 10 01 d0 08 21 d1 | 3d 85 1d 00 d2 08 21 d3 |".....!.|=.....!.|
|00001940| 55 83 cf 00 8a ce 08 21 | 71 88 c1 0c 83 2f 00 d4 |U......!|q..../..|
|00001950| 82 30 00 d5 c1 1d 1b 1a | 64 62 88 d6 d7 21 88 d8 |.0......|db...!..|
|00001960| 0b 21 85 44 00 d6 d7 21 | 88 60 1e 06 d9 da 0c 83 |.!.D...!|.`......|
|00001970| 52 00 db 82 53 00 dc 0e | 07 0e 08 24 dd 0b c1 c9 |R...S...|...$....|
|00001980| 23 83 6d 00 de df e0 d3 | 21 e1 d3 21 5c 22 50 82 |#.m.....|!..!\"P.|
|00001990| 6e 00 e2 50 89 12 88 e3 | 0e 06 64 5c 22 88 8a e4 |n..P....|..d\"...|
|000019a0| e5 21 71 88 c1 1d e6 0a | e7 5c 22 29 29 88 e8 c1 |.!q.....|.\"))...|
|000019b0| 21 29 88 0c 3f 83 9c 00 | c1 e9 ea 8f 88 eb 70 21 |!)..?...|......p!|
|000019c0| 82 bc 00 ec d9 ed 0e 07 | 0e 08 23 21 1e 0a cd 0e |........|..#!....|
|000019d0| 0a 21 eb 0e 0a 21 88 89 | 16 0a 88 ee 0e 0a 21 88 |.!...!..|......!.|
|000019e0| ef 20 29 88 0e 0b 85 ca | 00 f0 f1 0a 5c 22 88 f2 |. ).....|....\"..|
|000019f0| f3 21 2b 29 82 10 01 d0 | 08 21 f4 3e 85 10 01 8a |.!+)....|.!.>....|
|00001a00| ce 08 21 71 88 d9 f5 cd | 70 21 0a 23 89 12 88 c1 |..!q....|p!.#....|
|00001a10| 1d 64 62 88 e6 e7 e7 0a | 23 29 88 f6 0e 0c 21 88 |.db.....|#)....!.|
|00001a20| e4 e5 21 71 88 c1 1d 64 | 62 88 0a 63 29 88 f7 20 |..!q...d|b..c).. |
|00001a30| 85 0f 01 f8 f1 0a 5c 22 | 29 87 22 20 5b 70 72 6f |......\"|)." [pro|
|00001a40| 63 65 73 73 20 6e 69 6c | 20 6d 73 67 20 72 20 69 |cess nil| msg r i|
|00001a50| 6e 70 75 74 20 62 75 66 | 66 65 72 2d 72 65 61 64 |nput buf|fer-read|
|00001a60| 2d 6f 6e 6c 79 20 70 20 | 66 74 70 2d 68 6f 73 74 |-only p |ftp-host|
|00001a70| 20 66 74 70 2d 66 69 6c | 65 20 74 20 6b 6c 75 64 | ftp-fil|e t klud|
|00001a80| 67 65 20 61 73 79 6e 63 | 68 72 6f 6e 6f 75 73 20 |ge async|hronous |
|00001a90| 70 72 6f 63 20 62 75 66 | 66 65 72 2d 6e 61 6d 65 |proc buf|fer-name|
|00001aa0| 20 70 72 6f 63 65 73 73 | 2d 62 75 66 66 65 72 20 | process|-buffer |
|00001ab0| 73 65 74 2d 70 72 6f 63 | 65 73 73 2d 62 75 66 66 |set-proc|ess-buff|
|00001ac0| 65 72 20 70 72 6f 63 65 | 73 73 2d 73 74 61 74 75 |er proce|ss-statu|
|00001ad0| 73 20 65 78 69 74 20 70 | 72 6f 63 65 73 73 2d 65 |s exit p|rocess-e|
|00001ae0| 78 69 74 2d 73 74 61 74 | 75 73 20 30 20 22 5b 30 |xit-stat|us 0 "[0|
|00001af0| 2d 39 5d 2b 20 62 79 74 | 65 73 20 72 65 63 65 69 |-9]+ byt|es recei|
|00001b00| 76 65 64 20 69 6e 20 5b | 30 2d 39 5d 2b 5c 5c 2e |ved in [|0-9]+\\.|
|00001b10| 5b 30 2d 39 5d 2b 20 73 | 65 63 6f 6e 64 73 2e 2a |[0-9]+ s|econds.*|
|00001b20| 24 22 20 22 5b 30 2d 39 | 5d 2b 20 62 79 74 65 73 |$" "[0-9|]+ bytes|
|00001b30| 20 73 65 6e 74 20 69 6e | 20 5b 30 2d 39 5d 2b 5c | sent in| [0-9]+\|
|00001b40| 5c 2e 5b 30 2d 39 5d 2b | 20 73 65 63 6f 6e 64 73 |\.[0-9]+| seconds|
|00001b50| 2e 2a 24 22 20 73 65 61 | 72 63 68 2d 62 61 63 6b |.*$" sea|rch-back|
|00001b60| 77 61 72 64 20 22 32 32 | 36 20 22 20 6c 6f 6f 6b |ward "22|6 " look|
|00001b70| 69 6e 67 2d 61 74 20 66 | 6f 72 6d 61 74 20 22 66 |ing-at f|ormat "f|
|00001b80| 74 70 20 25 73 20 25 73 | 3a 25 73 20 64 6f 6e 65 |tp %s %s|:%s done|
|00001b90| 22 20 22 72 65 61 64 22 | 20 22 77 72 69 74 65 22 |" "read"| "write"|
|00001ba0| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00001bb0| 72 64 20 22 3a 20 22 20 | 62 75 66 66 65 72 2d 73 |rd ": " |buffer-s|
|00001bc0| 75 62 73 74 72 69 6e 67 | 20 6d 61 74 63 68 2d 62 |ubstring| match-b|
|00001bd0| 65 67 69 6e 6e 69 6e 67 | 20 6d 61 74 63 68 2d 65 |eginning| match-e|
|00001be0| 6e 64 20 22 22 20 64 65 | 6c 65 74 65 2d 72 65 67 |nd "" de|lete-reg|
|00001bf0| 69 6f 6e 20 67 65 74 2d | 62 75 66 66 65 72 2d 63 |ion get-|buffer-c|
|00001c00| 72 65 61 74 65 20 22 2a | 66 74 70 20 6c 6f 67 2a |reate "*|ftp log*|
|00001c10| 22 20 69 6e 73 65 72 74 | 20 31 30 20 73 65 74 2d |" insert| 10 set-|
|00001c20| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|00001c30| 70 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 c0 |p (byte-|code "..|
|00001c40| 21 85 0d 00 08 85 0d 00 | c2 08 21 87 22 20 5b 66 |!.......|..!." [f|
|00001c50| 74 70 2d 74 65 6d 70 2d | 66 69 6c 65 2d 6e 61 6d |tp-temp-|file-nam|
|00001c60| 65 20 62 6f 75 6e 64 70 | 20 64 65 6c 65 74 65 2d |e boundp| delete-|
|00001c70| 66 69 6c 65 5d 20 33 29 | 20 28 28 65 72 72 6f 72 |file] 3)| ((error|
|00001c80| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 87 22 | (byte-c|ode ".."|
|00001c90| 20 5b 6e 69 6c 5d 20 31 | 29 29 29 20 6b 69 6c 6c | [nil] 1|))) kill|
|00001ca0| 2d 62 75 66 66 65 72 20 | 67 65 6e 65 72 61 74 65 |-buffer |generate|
|00001cb0| 2d 6e 65 77 2d 62 75 66 | 66 65 72 20 22 25 73 3a |-new-buf|fer "%s:|
|00001cc0| 25 73 20 28 66 74 70 29 | 22 20 72 65 6e 61 6d 65 |%s (ftp)|" rename|
|00001cd0| 2d 62 75 66 66 65 72 20 | 66 74 70 2d 73 65 74 75 |-buffer |ftp-setu|
|00001ce0| 70 2d 77 72 69 74 65 2d | 66 69 6c 65 2d 68 6f 6f |p-write-|file-hoo|
|00001cf0| 6b 73 20 6d 65 73 73 61 | 67 65 20 22 25 73 22 20 |ks messa|ge "%s" |
|00001d00| 73 6c 65 65 70 2d 66 6f | 72 20 32 20 28 65 78 69 |sleep-fo|r 2 (exi|
|00001d10| 74 20 73 69 67 6e 61 6c | 29 20 22 46 74 70 20 64 |t signal|) "Ftp d|
|00001d20| 69 65 64 20 28 62 75 66 | 66 65 72 20 25 73 29 3a |ied (buf|fer %s):|
|00001d30| 20 25 73 22 20 64 65 6c | 65 74 65 2d 70 72 6f 63 | %s" del|ete-proc|
|00001d40| 65 73 73 20 77 61 69 74 | 69 6e 67 2d 66 6f 72 2d |ess wait|ing-for-|
|00001d50| 75 73 65 72 2d 69 6e 70 | 75 74 2d 70 20 65 72 72 |user-inp|ut-p err|
|00001d60| 6f 72 5d 20 33 38 29 29 | 0a 0a 28 64 65 66 75 6e |or] 38))|..(defun|
|00001d70| 20 66 74 70 2d 73 65 74 | 75 70 2d 77 72 69 74 65 | ftp-set|up-write|
|00001d80| 2d 66 69 6c 65 2d 68 6f | 6f 6b 73 20 6e 69 6c 20 |-file-ho|oks nil |
|00001d90| 28 62 79 74 65 2d 63 6f | 64 65 20 22 09 18 c7 c1 |(byte-co|de "....|
|00001da0| 21 88 c8 09 c9 5c 22 89 | 11 29 88 c7 c2 21 88 ca |!....\".|.)...!..|
|00001db0| 89 12 88 cb 89 13 88 0b | cc cd 70 21 21 50 89 14 |........|..p!!P..|
|00001dc0| 88 c6 89 15 87 22 20 5b | 68 6f 6f 6b 73 20 77 72 |....." [|hooks wr|
|00001dd0| 69 74 65 2d 66 69 6c 65 | 2d 68 6f 6f 6b 73 20 72 |ite-file|-hooks r|
|00001de0| 65 76 65 72 74 2d 62 75 | 66 66 65 72 2d 66 75 6e |evert-bu|ffer-fun|
|00001df0| 63 74 69 6f 6e 20 64 65 | 66 61 75 6c 74 2d 64 69 |ction de|fault-di|
|00001e00| 72 65 63 74 6f 72 79 20 | 62 75 66 66 65 72 2d 66 |rectory |buffer-f|
|00001e10| 69 6c 65 2d 6e 61 6d 65 | 20 62 75 66 66 65 72 2d |ile-name| buffer-|
|00001e20| 72 65 61 64 2d 6f 6e 6c | 79 20 6e 69 6c 20 6d 61 |read-onl|y nil ma|
|00001e30| 6b 65 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ke-local|-variabl|
|00001e40| 65 20 61 70 70 65 6e 64 | 20 28 66 74 70 2d 77 72 |e append| (ftp-wr|
|00001e50| 69 74 65 2d 66 69 6c 65 | 2d 68 6f 6f 6b 29 20 66 |ite-file|-hook) f|
|00001e60| 74 70 2d 72 65 76 65 72 | 74 2d 62 75 66 66 65 72 |tp-rever|t-buffer|
|00001e70| 20 22 2f 74 6d 70 2f 22 | 20 6d 61 6b 65 2d 74 65 | "/tmp/"| make-te|
|00001e80| 6d 70 2d 6e 61 6d 65 20 | 62 75 66 66 65 72 2d 6e |mp-name |buffer-n|
|00001e90| 61 6d 65 5d 20 37 29 29 | 0a 0a 28 64 65 66 75 6e |ame] 7))|..(defun|
|00001ea0| 20 66 74 70 2d 77 72 69 | 74 65 2d 66 69 6c 65 2d | ftp-wri|te-file-|
|00001eb0| 68 6f 6f 6b 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |hook nil| (byte-c|
|00001ec0| 6f 64 65 20 22 c5 09 0a | 5c 22 18 c6 08 c7 5c 22 |ode "...|\"....\"|
|00001ed0| 88 c8 c9 09 0a 23 88 ca | 08 21 cb 3d 85 20 00 c3 |.....#..|.!.=. ..|
|00001ee0| cc cd 8f 88 82 10 00 88 | ca 08 21 ce 3d 85 34 00 |........|..!.=.4.|
|00001ef0| cf 08 21 d0 55 85 34 00 | d1 c3 21 29 88 c8 d2 21 |..!.U.4.|..!)...!|
|00001f00| 88 c4 87 22 20 5b 70 72 | 6f 63 65 73 73 20 66 74 |..." [pr|ocess ft|
|00001f10| 70 2d 68 6f 73 74 20 66 | 74 70 2d 66 69 6c 65 20 |p-host f|tp-file |
|00001f20| 6e 69 6c 20 74 20 66 74 | 70 2d 77 72 69 74 65 2d |nil t ft|p-write-|
|00001f30| 66 69 6c 65 20 73 65 74 | 2d 70 72 6f 63 65 73 73 |file set|-process|
|00001f40| 2d 73 65 6e 74 69 6e 65 | 6c 20 66 74 70 2d 73 79 |-sentine|l ftp-sy|
|00001f50| 6e 63 68 72 6f 6e 6f 75 | 73 2d 6f 75 74 70 75 74 |nchronou|s-output|
|00001f60| 2d 73 65 6e 74 69 6e 65 | 6c 20 6d 65 73 73 61 67 |-sentine|l messag|
|00001f70| 65 20 22 46 54 50 20 77 | 72 69 74 69 6e 67 20 25 |e "FTP w|riting %|
|00001f80| 73 3a 25 73 2e 2e 2e 22 | 20 70 72 6f 63 65 73 73 |s:%s..."| process|
|00001f90| 2d 73 74 61 74 75 73 20 | 72 75 6e 20 28 62 79 74 |-status |run (byt|
|00001fa0| 65 2d 63 6f 64 65 20 22 | c1 08 21 87 22 20 5b 70 |e-code "|..!." [p|
|00001fb0| 72 6f 63 65 73 73 20 61 | 63 63 65 70 74 2d 70 72 |rocess a|ccept-pr|
|00001fc0| 6f 63 65 73 73 2d 6f 75 | 74 70 75 74 5d 20 32 29 |ocess-ou|tput] 2)|
|00001fd0| 20 28 28 65 72 72 6f 72 | 20 28 62 79 74 65 2d 63 | ((error| (byte-c|
|00001fe0| 6f 64 65 20 22 c0 87 22 | 20 5b 6e 69 6c 5d 20 31 |ode ".."| [nil] 1|
|00001ff0| 29 29 29 20 65 78 69 74 | 20 70 72 6f 63 65 73 73 |))) exit| process|
|00002000| 2d 65 78 69 74 2d 73 74 | 61 74 75 73 20 30 20 73 |-exit-st|atus 0 s|
|00002010| 65 74 2d 62 75 66 66 65 | 72 2d 6d 6f 64 69 66 69 |et-buffe|r-modifi|
|00002020| 65 64 2d 70 20 22 57 72 | 69 74 74 65 6e 22 5d 20 |ed-p "Wr|itten"] |
|00002030| 39 29 29 0a 0a 28 64 65 | 66 75 6e 20 66 74 70 2d |9))..(de|fun ftp-|
|00002040| 72 65 76 65 72 74 2d 62 | 75 66 66 65 72 20 28 26 |revert-b|uffer (&|
|00002050| 72 65 73 74 20 69 67 6e | 6f 72 65 29 20 28 62 79 |rest ign|ore) (by|
|00002060| 74 65 2d 63 6f 64 65 20 | 22 c4 09 0a 5c 22 18 c5 |te-code |"...\"..|
|00002070| 08 c6 5c 22 88 c7 c8 09 | 0a 23 88 c9 08 21 ca 3d |..\"....|.#...!.=|
|00002080| 85 20 00 c3 cb cc 8f 88 | 82 10 00 88 c9 08 21 cd |. ......|......!.|
|00002090| 3d 85 34 00 ce 08 21 cf | 55 85 34 00 d0 c3 21 88 |=.4...!.|U.4...!.|
|000020a0| c7 d1 21 29 87 22 20 5b | 70 72 6f 63 65 73 73 20 |..!)." [|process |
|000020b0| 66 74 70 2d 68 6f 73 74 | 20 66 74 70 2d 66 69 6c |ftp-host| ftp-fil|
|000020c0| 65 20 6e 69 6c 20 66 74 | 70 2d 66 69 6e 64 2d 66 |e nil ft|p-find-f|
|000020d0| 69 6c 65 20 73 65 74 2d | 70 72 6f 63 65 73 73 2d |ile set-|process-|
|000020e0| 73 65 6e 74 69 6e 65 6c | 20 66 74 70 2d 73 79 6e |sentinel| ftp-syn|
|000020f0| 63 68 72 6f 6e 6f 75 73 | 2d 69 6e 70 75 74 2d 73 |chronous|-input-s|
|00002100| 65 6e 74 69 6e 65 6c 20 | 6d 65 73 73 61 67 65 20 |entinel |message |
|00002110| 22 46 54 50 20 72 65 76 | 65 72 74 69 6e 67 20 25 |"FTP rev|erting %|
|00002120| 73 3a 25 73 22 20 70 72 | 6f 63 65 73 73 2d 73 74 |s:%s" pr|ocess-st|
|00002130| 61 74 75 73 20 72 75 6e | 20 28 62 79 74 65 2d 63 |atus run| (byte-c|
|00002140| 6f 64 65 20 22 c1 08 21 | 87 22 20 5b 70 72 6f 63 |ode "..!|." [proc|
|00002150| 65 73 73 20 61 63 63 65 | 70 74 2d 70 72 6f 63 65 |ess acce|pt-proce|
|00002160| 73 73 2d 6f 75 74 70 75 | 74 5d 20 32 29 20 28 28 |ss-outpu|t] 2) ((|
|00002170| 65 72 72 6f 72 20 28 62 | 79 74 65 2d 63 6f 64 65 |error (b|yte-code|
|00002180| 20 22 c0 87 22 20 5b 6e | 69 6c 5d 20 31 29 29 29 | ".." [n|il] 1)))|
|00002190| 20 65 78 69 74 20 70 72 | 6f 63 65 73 73 2d 65 78 | exit pr|ocess-ex|
|000021a0| 69 74 2d 73 74 61 74 75 | 73 20 30 20 73 65 74 2d |it-statu|s 0 set-|
|000021b0| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|000021c0| 70 20 22 52 65 76 65 72 | 74 65 64 22 5d 20 39 29 |p "Rever|ted"] 9)|
|000021d0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+